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FACILITY: SATS SYSTEM SERVICE TESTS 

ABSTRACT THE SATSSF14 MODULE TESTS THE EXECUTION OF CERTAIN 
VMS SYSTEM SERVICES, INVOKED IN SUCH A WAY AS TO EXPECT FAILING 
STATUS CODES. THE SYSTEM SERVICES TESTED AND THE STATUS CODES 
EXPECTED ARE SUMMARIZED AS AR NTS TO THE TESTSERV MACROS 
WHICH A THE END OF LISTING. SUCCESSFUL STATUS 


CODES ARE TESTED IN OTHER MODULES. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 
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y04=000 DECLARATIONS §: att 1 80: $6: 3 YE TP Sy. Fee eer yS MAR: t . dh) 
; ~SBTTL DECLARATIONS 
: ; INCLUDE FILES: 
$ SPHDDEF : PROCESS HEADER OFFSET SYMBOLS 
0 SPCBDEF ; PROCESS CONTROL BLOCK OFFSET SYMBS 
9 8 STSDEF : STATUS MESSAGE sy OLS 
PRVDEF ; SYMBOL DEFS FOR PRIVILEGES 
60 SUETPDEF UETP MSG CODE DEFINITIONS 
61 SSHR_MESSAGES UETP,116,<<TEXT, info>> 
6¢ ; DEFINE UETPS 
9 : GET RID OF ack. DEFINITIONS 
90 64 SPSLDEF ; ACCESS MODE SYMBOLS 
00 66 : MACROS: 
4 67 ; 
0 o8 3 
900 $8 ; EQUATED SYMBOLS: 
00000000 $000 71 WARNING = 0 : WARNING SEVERITY VALUE FOR MSGS 
00000001 0000 if SUCCESS = 1 + SUCCESS SEVERITY VALUE FOR MSGS 
90000008 000 $73 ERROR = é : ERROR SEVERITY VALUE FOR MSG 
00000003 0000 74 INFO = ; INFORMATIONAL SEV VALUE FOR MSGS 
00000004 0000 75 SEVERE = 4 : SEVERE (FATAL) SEV VALUE FOR MSGS 
0000000 900 06 TCG_NO = 9 : INITIALIZE TEST CASE GROUP 
0000000 0000 77 GRP- TOTAL = : INITIALIZE TEST CASE GROUP TOTAL 
OOO7FFF 0000 £8 RO_THRU_S = “M<RO,R1,R2,R3,R4,R5,RO,R7,R8,R9,RI0,R1 P,SP> 
00000000 9900 79 INADR Uae ‘ = 0 > INADR ARG FOR LKOSeEt” (LOCATION 0) 
00000001 000 80 AP TADRe Lws20 = 1 ; RETADR ARG FOR LKWSET (LOCATION 1) 
0000000 000 1 INADR_OWS1 = 0 ; INADR ARG FOR ULWSET (LOCATION 0) 
000001 000 ; RETADR uWwS2e0 = 1 ; RETADR ARG FOR ULWSET (LOCATION 1) 
00000000 0000 INADR_CKP1 = 0 : INADR ARG FOR LCKPAG (LOCA 
00000001 990 4 RETADR LKP2O 8 = 1 : RETADR ARG FOR LCKPAG (LOCATION 1) 
00000000 00 9 5 INADR_OLP1 = 0 ; INADR ARG FOR ULKPAG (LOCATION 0) 
00000001 909 $ RETADR_ULP2O) = = ‘1 : RETADR ARG FOR ULKPAG (LOCATION 1) 
$009 88 : OWN STORAGE: 
0000 9; 
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RODATA,RD ,NOWRT ,NOEXE , LONG 
.WORD ° “M<R2,R3,R4,R5 /RO,R7,RB,RI-R10,R11,AP.FP> ! “x8000 - 
; REG COMPARE MASK’ (HIGH-ORDER ... 
+ oe. BIT must BE ON 
STRING 1,<!/!AC!12B!12B: REGISTER | 2UW CONTENTS ALTERED>, 
<; BEFO one § SERVICE CALL: !8XL_ AFTER SERVICE CALL: 
STRING (,< TEST MODULE NAME 
STRIN ek : DISPOSITION FIELD OF TEST MOD MSG 
STRIN C.<su cessful> : DISPOSITION FIELD OF TEST MOD MSG 
STRING C,<failed> DISPOSITION FIELD OF TEST MOD MSG 
: STRI 1 <SATSSFI4> TEST MODULE NAME DESCRIPTOR 
“STRIN TERMINAL LOGICAL NAME 
. LONG NOACCESS NOACCES : PAGE ADDRESS OF NOACCESS PSECT 
“LONG PRTS$C_NA PROTECTION CODE FOR NOACCESS PSECT 
“LONG =1,- A QUADWORD OF 1-BITS 
INADR ARGUMENT FOR LKWSET 
INADR ARGUMENT FOR ULWSET 


- ADDRESS anton 
«ADDRESS “X8F 
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- LONG 
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PSLSC_USER 


Be Se Se Se Se Be Se Be Be Be Se Be Cfo Se Se Se Be Se 


iNADR™ ARGUMENT FOR LCKPAG 
RETADR ARGUMENT FOR LKWSET 
RETADR ARGUMENT FOR ULWSET 

RETADR ARGUMENT FOR LCKPAG 
RETADR ARGUMENT FOR ULKPAG 


F 
ACMODE ARGUMENT FOR LKWSET 
ACMODE ARGUMENT FOR ULWSET 
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v04 DECLARATIONS =SEP=1984 04:2 UETPSY.S SSATSSF 2. MAR; 1 
000 121 ~PSECT RWDATA,RD,WRT,NOEXE 
4 1 ¢ TPID: -BLKL 1 ; PROCESS ID FOR THIS PROCESS 
4 125 CURRENT_TC: -BLKL 1 ; PTR TO CURRENT TEST CASE 
4 4 124 REG_SAVE_AREA: .BLKL 15 3 SAvE AREA FOR ALL REGS (SANS PC) 
D9 125 MOD-MSG CODE: ~ LONG YETPS_SATSAS 3; TEST MODULE MSG CODE FOR PUTMSG 
90 3 48 1 gc CLOB_RE -BLKL ; CLOBBERED REG NO (FOR FAO ERR MSG) 
5 4 127 RE EG BEFORE. $$: -BLKL 1 3 REG CONTENTS BEFORE “~.S. 
5 1 8 3 see (FOR FAO ERR. is) 
00000054 129 REG_AFTER_SS: .BLKL 1 ; REG CONTENTS AFTER S.S. 
= 9 3 «.- (FOR FAO ERROR MSG) 
4 131 SSTSTNSS: STRING C,< SF > 3 ASCII PORTION OF TEST CASE NAME 
90 S $F af 1 ¢ TMN_ADOR: - ADDRESS fEST_MOD_NAME 3; ADDR OF TEST MOD NAME FOR FAO 
° 133 TMD ADDR: «ADDRESS TEST_-MOD-BEG ; ADDR OF T.M. DISP FIELD FOR FAO 
BOR8 $8 3 4 134 TS EP: -BLKL 1 ; ENTRY PNT FOR CURR TESTSERV MACRO 
000 $f 135 RETADR: ~BLKL ¢ 3 RETURN GWORDS FOR SETPRT 
Boe 71 9 1 § PRVPRT: -BLKB 3 PROT RETURN BYTE FOR SETPRT 
00079 71 137 PRIVMASK: -—BLKQ 1 3; ADDR OF PRIVILEGE MASK (IN PHD) 
B88 20 079 «1 3 CHM CONT: -BLKL 1 : CHANGE E CONTINUE ADORE SS 
B38 93) te 139 REGS: ~BLKL 5 ; AREA FOR COND INDEX REGS (R2-R6) 
0000099 91 140 INADR_L WS: ~BLKL : INADR ARGUMENT FOR LKWSET SERVICE 
BOR ORRA 099 141 INADR ~tueit: -BLKL ; INADR ARGUMENT FOR LKWSET SERVICE 
000000A9 Boal 156 RETADR_LwS: ~BLKL ; RETADR ARGUMENT FOR LKWSET SERVICE 
00000081 00A9 143 INADR_OwS: ~BLKL ; INADR ARGUMENT FOR ULWSET SERVICE 
00000089 0081 144 INADR7UWS11: ~BLKL ; INADR ARGUMENT FOR ULWSET SERVICE 
000000C1 0089 145 RETADR_uws: ~BLKL ; RETADR ARGUMENT FOR ULWSET SERVICE 
000000C9 pec) 198 INADR_CKP: ~BLKL : INADR UMENT FOR G SERVICE 
000000D1 00C9 147 INADR™LKP11: ~BLKL ; INADR ARGUMENT FOR LCKPAG SERVICE 
000000D9 00D1 148 RETADR LKP: ~BLKL ; RETADR ARGUMENT FOR LCKPAG SERVICE 
Q00000E1 00D9 149 INADR_OLP ~BLKL ; INADR ARGUMENT FOR ULKPAG SERVICE 
OOOO000E9 O0E1 150 INADR “ULPI1: +BLEL ; INADR ARGUMENT FOR ULKPAG SERVICE 
OOO000F1 O0E9 151 RETADR_ULP: “BLK ; RETADR ARGUMENT FOR ULKPAG SERVICE 
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y042800 DECLARATIONS mets 90:58:43 LOE Tbe Rea SAY Ses -MAR: 1 ° (1) v0é 
00 153 ~PSECT SATS_ACC 1,RD,WRT,NOEXE,PAGE 
00000298 : 4 EMPTY: -BLKB ¥13- ; RESERVE A PAGE OF SPACE 
156; + 
1 $ 3 REET TAKATATATAEATAKAKATAAKAAETAKATAAAARAAAARAARARAARAARARARAARAAAARARARAARARERAETEREEAE 
| ; 8 ef 
p 1 § ; THE ORDER OF STATEMENTS IN THIS PSECT IS CRITICAL. . 
160 ; * DO NOT RE-ARRANGE THE VARIABLES. CONSULT SATS + 
0 61; FUNCTIONAL SPECIFICATION FOR A DESCRIPTION OF THE USE . 
8 166 :% OF THE EMPTY PSECT (AND ITS COMPANION PSECT, NOACCESS). « 
® we 
88 190 : RERATEATETAAAKAAATATETAKAKTAEATATAAARAAAARAEARAARAAARAAARARAARARARARARAARRAAAAERAE 
00 166: 
00 189 : TYPE AAAAA_SSSX1 (TYPE AAAAA_SSSX2 IF NOT DESC) GO HERE: 
900001FF 00 168 }NADR_ULP10 =.,-1 : INADR ARG FOR ULKPAG (LAST BYTE IN PAGE) 
000001F9 99 1 INADR-LWS14 =.,-7 ; INADR ARGUMENT FOR LKWSET 
000001F9 0 170 RETADR Lws22 8 ; RETADR ARGUMENT FOR LKWSET 
Q000001F9 0200 171 INADR_OWS14 =,-7 : INADR ARGUMENT S 
90000189 00 W2¢ RETADR_UwWS22 =,-7 : RETADR ARGUMENT FOR ULWSET 
00001F9 0200 173 INADR_CKP14 eS ; INADR ARGUMENT FOR LC 
QO0001F9 0200 174 RETADR LkP22 =.,-7 : RETADR ARGUMENT FOR LCKPAG 
000001F9 0200 175 INADR_OLP14 =.,-7 ; INADR ARGUMENT 
90000189 0200 126 RETADR_ULP22 =.-7 ; RETADR ARGUMENT FOR ULKPAG 
000001F3 020 17 2. «Te + ALLOW ROOM FOR STRING DESCRIPTOR 
OiF 178 ; TYPE AAAAA_SSSXS GO HERE: 
00000006 O1F 179 .LONG 6 ; STRING LENGTH (WILL CROSS PSECT BOUNDARY) 
000001FB" O1F 180 .ADDRESS .+4 : STRING ADDRESS 
O1FB 181 ; TYPE AAAAA_SSSX3 GO HERE: 
QOOOO1FC O1FB 18¢ .BLK 1 ; LOW-ORDER BYTE OF STRING LENGTH 
O1FC 183 ; TYPE AAAAA_SSSX2 GO HERE: 
00000200 ore 184 -BLKL 1 ; STRING LENGTH 
200 185 : 
00 186; 
00 187; 
00 188; 
00000000 189 -PSECT SATS_ACCVIO_2,RD,WRT,NOEXE , PAGE 
00000 00 00 190 NOACCESS: BLK 318 ; RESERVE A PAGE OF SPACE 
0000000 19 3, ee ; RETURN LOC CTR TO BEGINNING OF PSECT 
00000000' 0000 19 . ADDRESS EMPTY : ADDRESS OF ACCESSIBLE STRING 
00000000' 00% 19 x .ADDRESS EMPTY/*X100 : ADDRESS OF ACCESSIBLE STRING 
00 195 : *** NOTE -= DO NOT CHANGE LOCATION OR SEQUENCE OF ABOVE STATEMENTS! 
9 196 ; tee THIS PSECT (NOACCESS) MUST APPEAR IN MEMORY IMMEDIATELY 
197 ; eee FOLLOWING THE EMPTY PSECT. PSECT NAMES AND OPTIONS WILL BE 
19 ; tee CHOSEN TO FORCE THE DESIRED PSECT ORDERING. 
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INA : SBLKL 
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NONE 


SATSSF14: 
-WORD *M<R2,R3,R4,R5,RO,R7,RB,RI-RIO,R11> 
; ENTRY MASK 
SAKE $ TPID + GET PID OF THIS PROCESS 
; UNDO WAKE 
SSETPR $ TEST_MOD_NAME_D ; SET PROCESS NAME 
MOD MS T PRINT TEST MODULE BEGIN MSG 


: PR 
ROVAL mob SUCC gt D -ADDR * ASSUME END MSG WILL SHOW SUCCESS 
IN reistaie ag RO rie G_CODE ; CCE 
*NOREGS~ ; KERNEL MODE TO 


ETLSGL_PHO,R GET 
MOVAL PHD$Q PRIVASKCR9) » PRIVMASK GET PRIV 
M FROM, TOS GéT BAC 


PRIV ADD, ALL ; Ger ALL PRIVILEGES 
DISP SET UP DISPLAY INFO FOR TESTSERV 
SSETPRT_S INADR= INADR RETADR=RETADR, 
T=PROT, PRVPRT=PRVPRI 
SET NOACCESS PSECT ... 

i a2 FOR NO USER ACCESS 
BRW EXECUTE + GO EXECUTE ALL TEST CA 
TC_GROUP LwS,1,TS1 


NEXT_TEST_CASE SFLWS10 
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: TEST CASE NAME: SFLWS10 
- SYSTEM SERVICE: LKWSET 

: ARGUMENT UNDER TEST: INADR_LWS10 

* INPUT CONDITIONS: 

* ISSUE _LKWSET WITH RANGE OF ADDRESSES IN 

- SYSTEM SPACE. 

* EXPECTED RESULTS: 

: 1) SYSTEM STATUS CODE: NOPRIV 

® 


2) REGISTERS Ro THROUGH FP UNCHANGED 
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NEXT_TEST_CASE SFLWS11 
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BL: 
74 : : 
74 4; 
f 5; * TEST CASE NAME: SFLWS11 
0 : : * SYSTEM SERVICE: LKWSET 
r : : * ARGUMENT UNDER TEST: INADR_LWS11 
74 1; * INPUT CONDITIONS 
74 : 3 LOCK INTO WORKING SET A PAGE ALREADY 
te Ee OWNED BY EXEC MODE. 
74 5 : ® EXPECTED RESULTS: 
0274 $ ; 1) SYSTEM STATUS CODE: ACCVIO 
0 r fi : 2) REGISTERS R2 THROUGH FP UNCHANGED 
0274 39 : RARER AREAAE AERA AA EEA RATER AATAAERAARAAAETEEEE 
nh 
0274 4¢ : MODE 10$,EXEC,NOREGS GET INTO EXEC MODE FOR EXPREG 
0291 34 SEXPREG_ § OB AGENT T=#1, RETADR= = INADA _LWS 
0204 344 nates! h 1-PAGE REGION OWNED BY EXEC MODE 
0 as 49 MODE FROM, 10$ + BACK TO USER MODE 
oghe 43 . NEXT_TEST_CASE SFLWS12 
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B1 rt: ie 
4 2 : PARRA RAAAASLAAAAEAAZALALALALLASALALSALE EEL ESE EEE EE EEE REESE 
' 
BI : * TEST CASE NAME: SFLWS12 
: @ 
BI 4 : * SYSTEM SERVICE: LKWSET 
_ 
BI : ! ® ARGUMENT UNDER TEST: INADR_LWS12 
8 3 @ 
; NPUT CONDITIONS: 
BI i ; mit YNPUT ADDRESS FIELD AT LOCATION 0. 
B 3 * 
B1 361: * EXPECTED RESULTS: 
: ) SYSTEM STATUS CODE: ACCVIO 
+ 88 : : 5} REGISTERS R2 THROUGH FP UNCHANGED 
4 rt: ; SOI AGREE AE een be Tee EAE RE DEE 
Bl 367: 
; ; INTO EXEC MODE FOR CNTREG 
6 er $s SCNTREG. titi at — : GIVE BACK PAGE ACQUIRED BY SFLWS11 
0 DD 20 MODE “FROM, 20$ + BACK TO USER MODE 
O2DE 372 ° NEXT_TEST_CASE SFLWS13 
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EA 73 a penenouensenesensenseqneonenenensonqeeoesensseeceneses 
EA ; * 
EA r ; * TEST CASE NAME: SFLWS13 
EA hi ; * SYSTEM SERVICE: LKWSET 
EA 1; * ARGUMENT UNDER TEST: INADR_LWS13 
3 wv 
EA : > * INPUT CONDITIONS: 
EA 4 8 INPUT ADDRESS FIELD IN NON-ACCESSIBLE PSECT. 
EA : : *® EXPECTED RESULTS: 
EA ; 1) SYSTEM STATUS CODE: ACCVIO 
EA 8 3 * 2) REGISTERS R2 THROUGH FP UNCHANGED 
EA 90 : (ARRBRAAAAAASLALALALAALAAALALAELEREAEE SELES SESE REESE SESE ES GS 
O2EA 91 ;-- 
UE 
O2EA 394 * NEXT_TEST_CASE SFLWS14 
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EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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. TEST CASE NAME: SFLWS14 
: SYSTEM SERVICE: LKWSET 
: ARGUMENT UNDER TEST: INADR_LWS14 
* INPUT CONDITIONS: 

* SECOND LONGWORD OF INPUT ADDRESS FIELD BEGINS IN 
: ACCESSIBLE PSECT, ENDS IN NON-ACCESSIBLE PSECT. 
* 
« 
* 
. 
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NEXT_TEST_CASE SFLWS20 
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418 ; 
: gy sueenesenesoneeoeesunnseneanenenenecennqescnstaneente 
é : : TEST CASE NAME: SFLWS20 
43h ; + SYSTEM SERVICE: LKWSET 
436 i + ARGUMENT UNDER TEST: RETADR_LWS20 
255 2 o NPRETGRNCADERESS FIELD AT LOCATION 1. 
0 430 3 * 
Bee eee eee tee ut tus cope: ACCVIO 
0 238 ; 
: 0 : ¢ : PARRRSAASAALALALALALALALALALAALASALESES ESSE EEE EEE SEE ESAS SG 
ie 
0305 439 NEXT_TEST_CASE SFLWS21 
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TEST CASE NAME: SFLWS21 
SYSTEM SERVICE: LKWSET 
ARGUMENT UNDER TEST: RETADR_LWS21 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD IN READ-ONLY PSECT. 


EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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) SYSTEM STA TUS CODE: ACCVIO 
2) REGISTERS RD THROUGH FP UNCHANGED 
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TEST CASE NAME: SFLWS22 

SYSTEM SERVICE: LKWSET 

ARGUMENT UNDER TEST: RETADR_LWS22 

* INPUT CONDITIONS: 

® SECOND LONGWORD OF RETURN ADDRESS FIELD BEGINS IN 
: ACCESSIBLE PSECT, ENDS IN NON-ACCESSIBLE PSECT. 
* 

* 

* 
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NEXT_TEST_CASE SFUWS10 
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3 ft 
4 438 ; * TEST CASE NAME: SFUWS10 
4 499 : * SYSTEM SERVICE: ULWSET 
4 63% : * ARGUMENT UNDER TEST: INADR_UWS10 
4 rey : * INPUT CONDITIONS: 
4 0 ; 8 ISSUE ULWSET WITH RANGE OF ADDRESSES IN 
é : SYSTEM SPACE. 
4 : ; EXPECTED RESULTS: 
4 45% ) SYSTEM STATUS CODE: NOPRIV 
O34 05 : 2) REGISTERS R2 THROUGH FP UNCHANGED 
Bae 8S : PRRRBRABAAAABAAAAAARALALALALERLSLESEERS EERE REE ERE SESE RSA RSS SC 
0342 508 :-- 
gis 
034 314 : NEXT_TEST_CASE SFUWS11 
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TEST CASE NAME: SFUWS11 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: INADR_UWS11 


INPUT CONDITIONS: 
UNLOCK A PAGE ALREADY OWNED BY EXEC MODE. 


EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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MODE EXEC, N OREGS GET wo EXEC MODE FOR EXPREG 
SEXPREG_ g wtih T=#1, RETADR= =INADR_U 

nae A 1=PAGE REGION OWNED BY EXEC MODE 
MODE —_—- FROM, 10$ : BACK TO USER MODE 


NEXT_TEST_CASE SFUWS12 
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TEST CASE NAME: SFUWS12 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: INADR_UWS12 


INPUT CONDITIONS: 
INPUT ADDRESS FIELD AT LOCATION 0. 


EXPECTED RESULTS: 
) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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O$,EXEC,NOREGS 
SCNTREG.S 10,20 CNT=#1 
MODE “FROM 50S 


NEXT_TEST_CASE SFUWS13 
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; INTO EXEC MODE FOR CNTREG 
; GIVE BACK PAGE ACQUIRED BY SFUWS11 
; BACK TO USER MODE 
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TEST CASE NAME: SFUWS13 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: INADR_UWS13 


INPUT CONDITIONS: 
INPUT ADDRESS FIELD IN NON-ACCESSIBLE PSECT. 


seh iM i RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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TEST CASE NAME: SFUWS14 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: INADR_UWS14 
INPUT CONDITIONS: 

SECOND LONGWORD OF INPUT ADDRESS FI 
ACCESSIBLE PSECT, ENDS IN NON=ACC 
TED RESU Tee 
STEM STA TUS CODE: ACCVIO 
GISTERS R2 THROUGH FP UNCHANGED 
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TEST CASE NAME: SFUWS20 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: RETADR_UWS20 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD AT LOCATION 1. 


EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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TEST CASE NAME: SFUWS21 
SYSTEM SERVICE: ULWSET 
ARGUMENT UNDER TEST: RETADR_UWS21 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD IN READ-ONLY PSECT. 


EXPECTED RESULTS: 
1) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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TEST CASE NAME: SFUWS22 
SYSTEM SERVICE: ULWSET 
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: ARGUMENT UNDER TEST: RETADR_UWS22 
* INPUT CONDITIONS: 

4; SECOND ithe: OF RETURN ADDRESS FIELD BEGINS IN 
: ACCESSIBLE PSECT, ENDS IN NON-ACCESSIBLE PSECT. 
* EXPECTED RESULTS: 
: 1) SYSTEM STATUS CODE: ACCVIO 
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38 Bh8 TC_GROUP LKP,1,T$3 
tie 8! NEXT_TEST_CASE SFLKP10 
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TEST CASE NAME: SFLKP10 
SYSTEM SERVICE: LCKPAG 
ARGUMENT UNDER TEST: INADR_LKP10 


INPUT CONDITIONS: 
LOCK PAGE INTO MEMORY WITHOUT PROPER PRIVILEGE. 


euree ree ab 
1) SYSTEM STATUS CODE: NOPRIV 
2) REGISTERS R2 THROUGH FP UNCHANGED 
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PRIV REM, PSWAPM ; REMOVE PRIV REQUIRED TO LOCK PAGES 
NEXT_TEST_CASE SFLKP11 
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44 f 5 f RHAAAAAATATE ATER KKK ee KeeKeKeKeKeteKeeteteeeeeeeee 
44 5 @ 
44 f ? ; * TEST CASE NAME: SFLKP11 
44 209 : * SYSTEM SERVICE: LCKPAG 
7 2 
44 ab : * ARGUMENT UNDER TEST: INADR_LKP11 
3; 9 
44 8 : * INPUT CONDITIONS: 
rv at 3 : LOCK A PAGE ALREADY OWNED BY EXEC MODE. 
44 rig : * EXPECTED RESULTS: 
448 717: * 1) SYSTEM STATUS CODE: ACCVIO 
O44 18 ie 2) REGISTERS R2 THROUGH FP UNCHANGED 
044 720 : RRRAARARA REAR AERAAATAEAARARAEAAAAEAAEAAAAAAARARARRAAEE 
448 721 ;-- 
44 722 ; 
0448 7 § pRIV ADD PSWAPM : GET BACK PRIVILEGE REMOVED BY SFLKP10 
0468 724 ODE 0, 10$,EXEC,NOREGS T INTO EXEC MODE FOR EXPREG 
0485 725 SEXPREG 3 OB ACeNTeeT. RETADR= = INADR_ oe 
0498 7 é :7GET A 1-PAGE REGION OWNED BY EXEC MODE 
0498 u f MODE FROM, 108 : BACK TO USER MODE 
0499 729 © NEXT_TEST_CASE SFLKP12 
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‘ 
an f : ; . TEST CASE NAME: SFLKP12 
4A f $ ; * SYSTEM SERVICE: LCKPAG 
4A f § : e ARGUMENT UNDER TEST: INADR_LKP12 
4A 40 : * INPUT CONDITIONS: 
4A 4} 38 INPUT ADDRESS FIELD AT LOCATION 0. 
4A rg : EXPECTED RESULT $: 
6A5 744: 1) SYSTEM STATUS CODE: ACCVIO 
4A 245 ; 2) REGISTERS R2 THROUGH FP UNCHANGED 
: « 
cae ms : RAHAT AAAHERAAAEH ERA EAAAAEAAEAAARAAAAAAAEAAAAEEe 
a 
tng 750 ° MODE 10 208 EXEC, NOREGS ; INTO EXEC MODE FOR CNTREG 
04¢2 751 SCNTREG_S PAGCNT=#1 : GIVE BACK PAGE ACQUIRED BY SFLKP11 
OAD} 138 MODE “From 50s : BACK TO USER MODE 
gees 754° NEXT_TEST_CASE SFLKP13 
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Ape t § ; * TEST CASE NAME: SFLKP13 

ADE i : * SYSTEM SERVICE: LCKPAG 

ADE 163 : * ARGUMENT UNDER TEST: INADR_LKP13 

4DE 765 : * INPUT CONDITIONS: 

ADE 166 : INPUT ADDRESS FIELD IN NON-ACCESSIBLE PSECT. 
O4DE 768 : * EXPECTED RESULTS: 

O4DE 169 : 1) SYSTEM STATUS CODE: ACCVIO 

Dee oop 3 . 2) REGISTERS R2 THROUGH FP UNCHANGED 
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: TEST CASE NAME: SFLKP14 

: SYSTEM SERVICE: LCKPAG 

ARGUMENT UNDER TEST: INADR_LKP14 
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SYSTEM SERVICE: LCKPAG 
ARGUMENT UNDER TEST: RETADR_LKP20 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD AT LOCATION 1. 
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TEST CASE NAME: SFLKP21 
SYSTEM SERVICE: LCKPAG 
ARGUMENT UNDER TEST: RETADR_LKP21 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD IN READ-ONLY PSECT. 
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TEST CASE NAME: SFLKP22 
SYSTEM SERVICE: LCKPAG 
ARGUMENT UNDER TEST: RETADR_LKP22 
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2) REGISTERS R2 THROUGH FP UNCHANGED 
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" SYSTEM SERVICE: ULKPAG 

: ARGUMENT UNDER TEST: INADR_ULP10 
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24 dg : * SYSTEM SERVICE: ULKPAG 
24g 906 : * ARGUMENT UNDER TEST: INADR_ULP11 
54 3 4 : * INPUT CONDITIONS: 
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TEST CASE NAME: SFULP13 

SYSTEM SERVICE: ULKPAG 

ARGUMENT UNDER TEST: INADR_ULP13 


INPUT CONDITIONS: 
INPUT ADDRESS FIELD IN NON-ACCESSIBLE PSECT. 
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) SYSTEM STATUS CODE: ACCVIO 
2) REGISTERS R2 THROUGH FP UNCHANGED 


IARRASRARARARRASLAASLALALELAR SALAS AS ALES ASR ESSERE ARREARS 


eaaeaeeeeeeaeeenannen 


Ab db db Ad 4b AD Ab Ab AD Ab AD dd Ab db hh A dd a a 


DDPEXEPLXALD MAIN & 


AUF WN O OONOAU EW - COOONOAUM 


rere Tere re rere ere re rere rere rere re rererer 
+ 


WOOOOOOOOOOOOOOO 


ooooo 


NEXT_TEST_CASE SFULP14 


SATSSF14 
v04=000 


K 12 
= SATS SYSTEM SERVICE TESTS (FAILING S$. 16-SEP-1986 AX/VMS Macro V06 Page 40 SA 
SFULP14 green 1obe b5:38:95 es 


eich eh edict edi lh eed eich ehh sh sede “chub ech “hsb “ehh eh dich “db dich dh dh) 


pepe jofolojojlojolelolola) 


UETPSY. SRCISATSSF . MAR; 1 (2) VO 


LARRRARARASRLRAASAAR SALE AL SESASE SESE RSLS TERE REESE EES SS | 


C4 73 

t4 : g  susningtnanibanpetdnnenbhanebanounséedentersenteetiouess 
3 ® 

ca f ; * TEST CASE NAME: SFULP14 

ca 78 : * SYSTEM SERVICE: ULKPAG 

ca $75 : * ARGUMENT UNDER TEST: INADR_ULP14 

C4 398 : * INPUT CONDITIONS: 

C4 378 : SECOND LONGWORD OF INPUT ADDRESS FIELD BEGINS IN 

C4 979 3 ¢ ACCESSIBLE PSECT, ENDS IN NON-ACCESSIBLE PSECT. 

C4 981; * EXPECTED RESU LTS: 

(6 9 é : 1) SYSTEM Stat $ CODE: ACCVIO 

Ge 4 7 3 . 2) REGISTERS R2 THROUGH FP UNCHANGED 

C6 985: 

C6 «986; 

C4 987 : 

C6 «4988; 

C4 989 


NEXT_TEST_CASE SFULP20 


L 2 
SATSSF14 - SATSESYSTEM SERVICE TESTS (FAILING S. 16-SEP-1 AX/VMS v04- Pa 41 SA’ 
$042000 SFULP ~$Eb=1 38% 89: $6: 3 UETPSY.S 5Sat SSF J MAR; 1 = (2) Vv0é 


D $1 ies 
4 35 3 ae sonal hits eR a a ag Is Fina 
3 34 : * TEST CASE NAME: SFULP20 
30 % : * SYSTEM SERVICE: ULKPAG 
5 938 : * ARGUMENT UNDER TEST: RETADR_ULP20 
5D0 1000 : * INPUT CONDITIONS: 
20 8 RETURN ADDRESS FIELD AT LOCATION 1. 
0500 1 : : * EXPECTED RESULTS: 

0500 1004: * 1} SYSTEM STATUS CODE: ACCVIO 

0500 1005 * 2) REGISTERS R2 THROUGH FP UNCHANGED 

8208 1009 : RRAARAAAAAAA AERA A AAA AAAAAAAAAERERAERREAATERAERER EE 
300 1008 :-- 

88p0 1010 | 

0500 1011 ° NEXT_TEST_CASE SFULP21 


M12 
SATSSF14 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 00:42:3 AX/VMS Macro V04-00 Pa “ 
v04=000 SFULPS 823 p= 1384 2:38:13 LOETPSY. SREISAYSSF.44.MAR; 1 os (3) 


* 
+ 


ARR RAARAARRALALALALA SELES EEL A SESE REE ESE EES E RES EES 


TEST CASE NAME: SFULP21 
SYSTEM SERVICE: ULKPAG 
ARGUMENT UNDER TEST: RETADR_ULP21 


INPUT CONDITIONS: 
RETURN ADDRESS FIELD IN READ-ONLY PSECT. 
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TOUTES BS BEE BWW 
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acro ¥Oe= 00 

RCJSATSSF14.MAR;1 
~SBTTL SUBROUTINES 

REG_ SAVE: 


PRARRAARASAAAAAAAAEALALASALESERLESE EE ESE SEE ESEE ESE SESE EEE EEE ESSEC ESS 
* ® 
* SAVES RO THRU SP IN REG_SAVE_AREA * 
* ® 
PARRRAALAAASALALAAALALLLALLELEEEES ERASER ERE ESSERE EEE EEE EE EE EEE Ea 


PUSHR #RO_THRU_SP ; SAVE ALL REGS ON Swe 
MOVCS #6 {SPD TREG_SAVE_AREA ; SAVE Bay Rar One $.S.) 
POPR #R 0. THRU_SP ; CLEAN UP STACK 

RSB 3 cece AND RETURN 


REG_ REST: 


PRARRRBARARASAAALALALASARLELELASERE SERRE R ERE LE RRR SERRE EERE RRR REESE ES 
® ® 
* RESTORES RO THRU SP FROM REG_SAVE_AREA * 
® ® 
LARRRAAAARAASALARAAEARARLERERERRERRRSEEERE LER EERE SAREE RARER RESALE OY 


SUBL ; MOVE SP TO MAKE ROOM FOR REGS 
MOVC 700° REG SAVE AREA, (SP) ; MOVE REGS ONTO STACK FOR POP 
PORR #RO_THRO_S 3 RESTORE ALL RE REGS FOR TESTSERV 


Be Se Se Oe Se Se Oe Oe Bee te te ee 


SATSSF14 = SATS ‘1 
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-MAR;1 
REG_COMP: 


LARARRBARASAASAAESALALASLALELEL ERASER EASE TERRE EARS E SERRE RRR S ES OD 


4) POPS ALL REGS OFF OF STAC 


® ® 
* 1) PUSHES ALL REGS ONTO STA * 
* 2) COMPARES rica nee IMAGES. FROM STACK WITH CORRESPONDING * 
: itAGE? COMP A ae SAVE_AREA FOR ALL REGISTERS SPECIFIED - 
* 3) FOR EACHUNEQOAL COMPARE, AN ERROR MESSAGE IS PRINTED * 
7 (USING SOUTPUT SYSTEM SERVICES). * 

® 
+ ‘ 
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(LARARRAAARAAAAALELALASALALALEAL ASAE SERS E ESSE ERE E RATE TERRES 


SSIS SSSA PAA AA AA AAO 
MEW OO OONOAUE Wn" OOOnNO 


CLEAN UP STACK 
RETURN TO CALLER 


SY 
IN 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
£40 1 
8 
7FFF 8F BB OE40 1 PUSHR #RO_THRU_SP > SAVE ALL REGISTERS ON STACK 
56 O0000008'EF DE OE44 1 MOVAL REG. SANE “AREA, R6 : POINT R6 TO BEG OF ... 
£48 1 : ee. RECS (BEFORE $.S.) 
54 SE dO OF4B 1 MOVL = SP,R4 : POINT R& TO BEG OF 
E4E 1 + .e. REGS (AFTER S.S.) 
53 FF BF 98 OE4E 1 CVTBL #=1,R3 : INITIALIZE REG_COMP_MASK INDEX 
OED 1 i: REG_COMP_NEXT: 
53 06 OES2 1 TNCL R3 ; POINT TO NEXT BIT IN MASK 
53 OF 91 OF54 127 CMPB #15, R3 : END OF THE MASK ? 
03 1A 0657 127 BGTRU REG_COMP_CONT : NO == CONTINUE 
009F 31 OF59 1280 BRW REG-COMP-RSB : YES == GO TO COMMON RETURN 
OE5C 1281 REG_COMP_CONT: 
84 «86 CO OES 1 : CMPL = (R6) + (Rd) ; REG BEFORE = REG AFTER 2 
Fl 13 OESF 128 BEQLU REG COMP_NEXT YES == LOOK FOR NEXT REG 
E9 OOOOOOOO'EF 53 £1 0E&61 1284 BBC R3,REG_ COMP. MASK ,REG_ COMP_ NEXT 
Oe69 1285 s"NO == GET NEXT IF BIT NOT SET 
00000048" 53 DO 069 1286 MOVL  R3,CLOB_R : NO == GIVE REG NUMBER TO FAO 
QOOOD004C'EF FC AS DO E70 1287 MOVL RE Re) REG. BEFORE SS; GIVE ''BEFORE™ CONTENTS TO FAO 
Q0000050"EF FC A400 ee 1288 MOVL (R4) ,REG_AFTER_SS : GIVE ‘‘AFTER'' CONTENTS FA 
00000056'EF 2A 90 SEBO 89 MOVE #*A/*/,$$TSTNS$+2 : GIVE FAILURE INDIC'N IN ERROR MSG 
oes? 1291 $FAO_S ERR_MSG_FAOCTL,OUTL,O ouTD SSSNADSS, 
E87 36 SSASEQSS, S$SPSEQSS, CLO: "REG _NO,REG “BEFORE. SS ,REG_AFTER_SS 
F253 CF F21D CF BO OEBA 129% MOVW OUTD ; ACTUAL OUTPUT LEN IN STRING DESC'R 
EC) 1295 PUTMSG Mu iE tes TEXT, #1,#OUTD> ; PRINT THE MS 
F237 cr 620084 er BO OED6 1 %6 MOVW #OUTE-O0TB, OUT ; GET MAX "TEN BACK INTO DESCRIPTOR 
90 OEDD 129 MOVB ah /, $STSTNSS$+2 + REMOVE FAIL INDIC'N FOR NEXT MSG 
00000060' Pe mnie DE EES 1 98 MOVAL + hop FAIL,TMD_ADDR ; INDICATE FAILED IN END MSG 
00000044 EF £98 FO OEEF 129 INSV yesRon: #043, M0D_ASG_ coe ; ADJUST STATUS CODE FOR ERROR 
31 EF 0 REG. COMP_ hex f : G0 LOOK FOR NEXT REG TO COMPARE 
EFB 1 
OEFF 1 


0 BRW 
0 REG_COMP_RSB: 


7FFF BF BA POPR #RO_THRU_SP 
RSB 
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MOD -MSG_PRINT: 
PPP PPPS PISS TEST rrr rrr errr rir rir iiiiiiiiiiiiiiiiiiiy 
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* PRINTS THE TEST MODULE ++ 3 + aint ed MESSAGES 
* (USING THE PUTMSG MACRO 
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EMMRTN: 
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PUTMSG <MOD_MSG_CODE ,#2, TMN_ADDR, TMD -ADDR> PRINT MSG 
RSB cnt RETURN TO CALLER 


LARRRASARARAAAAALAAALLALA SELES EASE REET ESE SARS RE RE RRR EE SS 


® 
® 
® 
% 
® 
® 
® 
® 


CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER 
A CMKRNI. CHEXEC OR CMSUP SYSTEM SERVICE IS ISSUED 
THE no RO 10N) ELY 


DIRE SET UP BY MODE. IT HAS 
THE EFFECT OF RETURNING TO THE END OF THE MODE 
MACRO EXPANSION. 


LARRRBARASAAAASLASEALELALALASESL ALES SLES SEES EE EEE ERE RRR E SEAS SE SD 


-WORD 0 ; ENTRY 
JMP @CHM_CONT 
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MASK 
; RETURN TO MODE MACRO IN NEW MODE 


RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 
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SATSSF14 
Symbol table 


SYSSCMKRNL 
SYSSCNTREG 


SYSSEXIT 
SYSSEXPREG 
SYSS 


ACCVIO_1 
SATS-ACCVIO_2 
SATSSF 14 
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Attributes 

NOPIC  USR 
NOPIC  USR 
NOPIC USR 
NOPIC  USR 
NOPIC USR 
NOPIC  USR 
NOPIC USR 


AAOOOOO 
ooooooc’ 
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4-44 42 4 4 


mmmmm 
cee 


“1384 b4:3531 


3 Yet eer e 


UETPSY 


we he NOEXE NORD 
EXE RD 


RD 
RD 
RD 
RD 
RD 
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NOVEC BYTE 


NOVEC LONG 


re Hf 
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VAX=-11 Macro Run Statistics -§ 


soeeeeeeoeeeceen a 


! Performance indicators ! 


posse eens Sea ae wow mw S$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 0:00:00.09 :00:00. 
Command processing 107 : 09:7 : 8: 9-38 
Pass 1 427 :00:17.4 :00: 
Symbol table sort + 00:01. 
ass 25 + 4. :00: 8-2 
Symbol table output 1 :00: §. 48 :00: “ot 
Psect synopsis output 0:00:00.0 :00:00.0 
Cross-reference output 2 0:00: 7-38 0:00: q-2 
Assembler run totals 84 00:00:24. 0:00:43.74 


The york ing set Limit was 1950 pages. 

93767 bytes (184 pages) of virtual memory were used to buffer _the intermediate goer. 

There were 40 pages of symbol table space re ete to hold 670 non-local and 156 local symbols. 
1335 source Lines were read in Pass 1, produc ing 1 object records in Pass 2. 

69 pages of virtual memory were used to define 53 macros. 


Set te wee ee MR eee Om meee} 


Macro Library name 


-$255$0UA28: CSHRLIBIVETP.MLB; 1 19 
“$255$DUA28: CSYS.OBJILIB.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB;2 26 
TOTALS (all Libraries) 47 


1316 GETS were required to define 47 macros. 
There were no errors, warnings or information messages. 


Ep-198¢ 00:26:12 LUETPSY.SREISAYSSFi4.MAR:1 8 


MACRO/LIS=L1S$:SATSSF14/0BJ=0BJ$:SATSSF14 MSRC$:SATSSF14/UPDATE=(ENHS: SATSSF 14) +EXECML$/LIB*+SHRLIB$:UETP/LIB 
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